home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed35.d64 / unit d-19 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  204 lines
  1. 1 GOTO1000
  2. 10 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:L=0:W=0:Z=0:C=0
  3. 15 PRINT"[147]                                        [146]";
  4. 20 PRINT"            [202]AMIE'S [211]PELLING            [146]";
  5. 25 PRINT"                                        [146]";
  6. 30 PRINT"                                        [146]";
  7. 35 PRINT"               [213]NIT [196]-19                [146]";
  8. 40 PRINT"                                        [146][159]":GOSUB300
  9. 45 REM THIS UNIT PREPARED BY BILL CUMBERLAND 1992:03:15
  10. 50 GOSUB700
  11. 55 GOSUB 600
  12. 60 GOTO1000
  13. 200 PRINT"[147][159]              [215][207][210][196][160][204][201][211][212]                 [146]"
  14. 205 PRINT"    PRECAUTION   REFILLS   CONDUCT
  15. 210 [153]"    IMPERSONAL   PREDICT   REACTION
  16. 215 PRINT"    NONPROFIT    PREVIEW   RETURNED
  17. 220 [153]"    IMMOVABLE    CONTROL   NONSTOP
  18. 225 PRINT"    IMPRACTICAL  REPORT    NONSENSE
  19. 227 [153]"    IMPERFECT    PREPAID   CONSTRUCT
  20. 228 PRINT"    CONVINCE     IMPURE   "
  21. 230 GOSUB401:RETURN
  22. 240 GOSUB400
  23. 245 PRINT"[153]   * [213]NSCRAMBLE THE LIST WORD AND
  24. 250 [153]"     SEPARATE THE PREFIXPRINT FROM THE
  25. 253 PRINT"     ROOT[153] WITH A [158]+[153].
  26. 255 [141]401:[141]560:[142]
  27. 270 [139] X[178]1[167][153]"ONONON"
  28. 275 [153]"               LEN(null)(null)(null)VALLEN(null)!                 WAIT":[141]500:[142]
  29. 280 [143] IF X=1THENGOSUB290
  30. 282 [153]"DEF            (null)HOOPS!  (null)O!                WAIT":X[178]X[170]1:[141]530:[141]402
  31. 284 [153]"ONON            (null)RY AGAIN                   PRINT":[141]402:[141]560
  32. 286 [153]"ONON                                        ONON"
  33. 288 [153]"ONON                                        ONON":[142]
  34. 290 [153]"DEFONON>> (null)HE CORRECT WORD IS........       ":[141]530
  35. 295 [153]"                                    ONPRINT":[142]
  36. 300 [141]402:[141]560
  37. 305 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null)CLOSETO CONTINUE       WAITLIST"
  38. 310 [161]R$:[139]R$[179][177][199](32)[167]310
  39. 315 [142]
  40. 400 [129]T[178]1[164] 500:[130]:[142]
  41. 401 [129]T[178]1[164] 1000:[130]:[142]
  42. 402 [129]T[178]1[164] 2000:[130]:[142]
  43. 403 [129]T[178]1[164] 3000:[130]:[142]
  44. 404 [129]T[178]1[164] 4000:[130]:[142]
  45. 405 [129]T[178]1[164] 5000:[130]:[142]
  46. 500 [143] <YES> SOUND
  47. 505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  48. 510 [151]54296,15:[151]54277,42:[151]54278,250
  49. 515 [151]54276,23:[151]54273,23:[151]54272,191
  50. 520 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  51. 525 [151]54296,0:[142]
  52. 530 [143] <NO> SOUND
  53. 535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  54. 540 [151]54296,15:[151]54277,18:[151]54278,242
  55. 545 [151]54276,33:[151]54273,4:[151]54272,48
  56. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  57. 555 [151]54296,0:[142]
  58. 560 [143] <BLIP> SOUND
  59. 565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  60. 570 [151]54296,8:[151]54277,42:[151]54278,250
  61. 575 [151]54276,23:[151]54273,23:[151]54272,191
  62. 580 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  63. 585 [151]54296,0:[142]
  64. 600 [153]"LOADPRINT     (null)HERE ARE TEN QUESTIONS":[141]401
  65. 610 [153]"     (null)OUR PERFORMANCE WILL BE SCORED.":[141]401
  66. 620 [141]300
  67. 630 [153]"LOAD AND AWAY WE GO .........":[141]402:[141]500:[141]401
  68. 640 [142]
  69. 700 [153]"LOADOPEN               CHR$AME (null)LAN                WAIT
  70. 705 PRINT"    [193] PREFIX[159]IS THE PART OF A WORD
  71. 710 [153]"    AT THE BEGINNING OF A ROOT OR           ROOT WORD.
  72. 715 PRINT"    [197]ACH PREFIX HAS A MEANING, WHICH
  73. 720 [153]"    CHANGES THE MEANING OF THE ROOT         WORD.
  74. 725 PRINT" [158][208]RE[159] MEANS BEFORE[159]  - [150]PREVIEW[159]
  75. 730 [153]" SYS(null)EOPEN MEANS AGAINOPEN OR BACKOPEN - DEFREFILLSOPEN
  76. 735 PRINT" [158][201]M[159] OR [158][206]ON[159] MEANS NOT[159] - [150]IMPERFECT[159]
  77. 740 [153]" SYSLENONOPEN MEANS WITHOPEN OR TOGETHEROPEN - DEFCONSTRUCTOPEN"
  78. 745 [141]402:[141]300
  79. 750 [153]"OPENLOAD  (null)OUR TASK WILL BE TO UNSCRAMBLE A
  80. 755 PRINT"  WORD AND SEPARATE THE PREFIX[159] AND
  81. 760 [153]"  THE ROOTOPEN WITH A SYS+OPEN.
  82. 765 PRINT"  [197]XAMPLE    SCRAMBLED   [158]VIPEREW
  83. 770 [153]"           UNSCRAMBLED   SYSPREVIEW
  84. 775 PRINT"                [158]PRE + VIEW
  85. 780 [153]"                 ^      ^
  86. 785 PRINT"          PREFIX ^      ^ ROOT  "
  87. 790 GOSUB402:GOSUB300:RETURN
  88. 999 :
  89. 1000 REM # 1
  90. 1005 GOSUB200:GOSUB240:X=0
  91. 1010 PRINT"              FORTIPONN    [158]"
  92. 1015 INPUT A$
  93. 1020 IFA$="NON + PROFIT"THEN GOSUB270:GOSUB402:GOTO1035
  94. 1025 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1035
  95. 1030 Z=Z+1:GOSUB280:GOTO1015
  96. 1035 PRINT"              NON + PROFIT    "
  97. 1040 GOSUB300
  98. 1049 :
  99. 1050 REM # 2
  100. 1055 GOSUB200:GOSUB240:X=0
  101. 1060 PRINT"                FILLERS [158]"
  102. 1065 INPUT A$
  103. 1070 IFA$="RE + FILLS"THEN GOSUB270:GOSUB402:GOTO1085
  104. 1075 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1085
  105. 1080 Z=Z+1:GOSUB280:GOTO1065
  106. 1085 PRINT"               RE + FILLS     "
  107. 1090 GOSUB300
  108. 1100 REM # 3
  109. 1105 GOSUB200:GOSUB240:X=0
  110. 1110 PRINT"             TRUCONST   [158]"
  111. 1115 INPUT A$
  112. 1120 IFA$="CON + STRUCT"THEN GOSUB270:GOSUB402:GOTO1135
  113. 1125 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1135
  114. 1130 Z=Z+1:GOSUB280:GOTO1115
  115. 1135 PRINT"              CON + STRUCT  "
  116. 1140 GOSUB300
  117. 1149 :
  118. 1150 REM # 4
  119. 1155 GOSUB200:GOSUB240:X=0
  120. 1160 PRINT"              VOMMIABLE    [158]"
  121. 1165 INPUT A$
  122. 1170 IFA$="IM + MOVABLE"THEN GOSUB270:GOSUB402:GOTO1185
  123. 1175 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1185
  124. 1180 Z=Z+1:GOSUB280:GOTO1165
  125. 1185 PRINT"               IM + MOVABLE     "
  126. 1190 GOSUB300
  127. 1200 REM # 5
  128. 1205 GOSUB200:GOSUB240:X=0
  129. 1210 PRINT"            CAPERUTION    [158]"
  130. 1215 INPUT A$
  131. 1220 IFA$="PRE + CAUTION"THEN GOSUB270:GOSUB402:GOTO1235
  132. 1225 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1235
  133. 1230 Z=Z+1:GOSUB280:GOTO1215
  134. 1235 PRINT"              PRE + CAUTION   "
  135. 1240 GOSUB300
  136. 1249 :
  137. 1250 REM # 6
  138. 1255 GOSUB200:GOSUB240:X=0
  139. 1260 PRINT"              DICPERT      [158]"
  140. 1265 INPUT A$
  141. 1270 IFA$="PRE + DICT"THEN GOSUB270:GOSUB402:GOTO1285
  142. 1275 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1285
  143. 1280 Z=Z+1:GOSUB280:GOTO1265
  144. 1285 PRINT"              PRE + DICT        "
  145. 1290 GOSUB300
  146. 1300 REM # 7
  147. 1305 GOSUB200:GOSUB240:X=0
  148. 1310 PRINT"              VINCONE     [158]"
  149. 1315 INPUT A$
  150. 1320 IFA$="CON + VINCE"THEN GOSUB270:GOSUB402:GOTO1335
  151. 1325 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1335
  152. 1330 Z=Z+1:GOSUB280:GOTO1315
  153. 1335 PRINT"              CON + VINCE       "
  154. 1340 GOSUB300
  155. 1349 :
  156. 1350 REM # 8
  157. 1355 GOSUB200:GOSUB240:X=0
  158. 1360 PRINT"              SONALPERIM   [158]"
  159. 1365 INPUT A$
  160. 1370 IFA$="IM + PERSONAL"THEN GOSUB270:GOSUB402:GOTO1385
  161. 1375 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1385
  162. 1380 Z=Z+1:GOSUB280:GOTO1365
  163. 1385 PRINT"               IM + PERSONAL  "
  164. 1390 GOSUB300
  165. 1400 REM # 9
  166. 1405 GOSUB200:GOSUB240:X=0
  167. 1410 PRINT"               PRIMEU    [158]"
  168. 1415 INPUT A$
  169. 1420 IFA$="IM + PURE"THEN GOSUB270:GOSUB402:GOTO1435
  170. 1425 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1435
  171. 1430 Z=Z+1:GOSUB280:GOTO1415
  172. 1435 PRINT"               IM + PURE        "
  173. 1440 GOSUB300
  174. 1449 :
  175. 1450 REM # 10
  176. 1455 GOSUB200:GOSUB240:X=0
  177. 1460 PRINT"               REACTION      [158]"
  178. 1465 INPUT A$
  179. 1470 IFA$="RE + ACTION"THEN GOSUB270:GOSUB402:GOTO1485
  180. 1475 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1485
  181. 1480 Z=Z+1:GOSUB280:GOTO1465
  182. 1485 PRINT"               RE + ACTION         "
  183. 1490 GOSUB300
  184. 1600 REM SCORE BOARD
  185. 1605 K=Z-W:C=10-Z
  186. 1610 PRINT"[147][200]ERE IS YOUR SCORE FOR [213]NIT [196]-19:"
  187. 1615 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [153][198][201][210][211][212] [212][210][217]  "C
  188. 1620 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [158][211][197][195][207][206][196] [212][210][217] "K
  189. 1625 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212][160][207][206][160][150][212][200][201][210][196] [212][210][217]  "W
  190. 1630 PRINT"":GOSUB403:GOSUB300
  191. 1650 :
  192. 1655 PRINT"[147][158][217]OU NOW HAVE A CHOICE:
  193. 1660 [153]"(null)RESS  R WAIT TO REPEAT THIS UNIT
  194. 1665 PRINT"[208]RESS  M [146] TO RETURN TO THE DISK MENU
  195. 1670 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[137]1670
  196. 1675 [139]R$[178]"R"[167][140]:[137]10
  197. 1680 [153]"LOAD(null)ETURNING TO THE DISK (null)VAL(null)(null)
  198. 1685 LOAD"MENU",8
  199. 1690 RUN
  200. 1695 END
  201. 1700 REM DESIGNED BY BILL CUMBERLAND 92:01:13
  202. 1710 REM FOR MY GRANDSON, JAMIE.
  203. 1720 REM SPELLING D - MODERN CURRICULUM PRESS
  204.